home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / utilities / misc / colourcycle.lha / colourcycle / Install < prev   
Encoding:
Text File  |  1995-02-03  |  3.2 KB  |  147 lines
  1. ; Install script for ColourCycle 1.0
  2. ; $VER: ColourCycleInstallScript 1.0 (02.2.95)
  3.  
  4. ; Strings and help information
  5.  
  6. (set bad-kick
  7. (cat "This application requires KickStart 3.0 or greater!"
  8. ))
  9.  
  10. (set copy-main-help
  11. (cat "This will install the ColourCycle software.\n\n"
  12.      "The 'ColourCycle' option refers to the main program.\n"
  13.      "The 'ColourCycle.guide' option refers to the AmigaGuide online context sensitive help.\n"
  14.      "The 'Colours' option refers to the sample projects. A new drawer called 'Colours' will be created automatically"
  15. ))
  16.  
  17. (set copy-icon-help "This will install a default icon to use for all ColourCycle projects.")
  18.  
  19. (set install-msg
  20. (cat "Installation program for ColourCycle 1.0\n"
  21. "An Intuition Screen Colour Cycler!\n\n"
  22. "© Copyright 1994, 1995 Stuart MacKinnon. All rights reserved.\n\n"
  23. "ColourCycle is Shareware. Please register if you use ColourCycle regulary!"
  24. ))
  25.  
  26. (set copy-guide "Do you wish to install the AmigaGuide documentation?")
  27. (set copy-guide-help
  28. (cat "This file outlines all of ColourCycle's features. It also outlines\n"
  29.      "icon tooltypes, menu functions, gadget functions, shareware\n"
  30.      "information etc\n\n"
  31.      "This file will also be used for the online help system."
  32. ))
  33.  
  34. (set copy-examples "Do you wish to install the Sample projects?")
  35. (set copy-examples-help
  36. (cat "The example projects will give you an\n"
  37.      "idea of what is possible with ColourCycle."
  38. ))
  39.  
  40. ; make sure Kick 3.0 or higher is available
  41.  
  42. (if (< (/ (getversion) 65536) 39)
  43. (
  44.     (abort bad-kick)
  45. ))
  46.  
  47.  
  48. (message install-msg)
  49.  
  50. (welcome)
  51.  
  52. ; Install Program
  53.  
  54. (set colourcycle-dir
  55.     (askdir
  56.         (prompt "Please select a directory where ColourCycle can be installed. A directory called ColourCycle will be created here.\n")
  57.         (help @askdir-help)
  58.         (default (@default-dest))
  59.         (newpath)
  60.     )
  61. )
  62.  
  63. (set @default-dest
  64.     (tackon colourcycle-dir "ColourCycle")
  65. )
  66. ;(prompt ("Creating ColourCycle directory..."))
  67. (makedir @default-dest
  68.     (prompt "Creating directory ColourCycle in the chosen place...")
  69.     (infos)
  70.     (help @makedir-help)
  71. )
  72.  
  73. (copyfiles
  74.     (prompt "Installing ColourCycle...")
  75.     (source "")
  76.     (dest @default-dest)
  77.     (choices "ColourCycle" "ColourCycle.guide" "Colours")
  78.     (help copy-main-help)
  79.     (confirm)
  80.     (infos)
  81. )
  82.  
  83. (set exists-name
  84.     (tackon @default-dest "ColourCycle.guide")
  85. )
  86.  
  87. (if (exists exists-name (noreq))
  88.     (copyfiles
  89.         (source "AADA.pic")
  90.         (dest @default-dest)
  91.     )
  92. )
  93.  
  94. (set exists-name
  95.     (tackon @default-dest "Colours")
  96. )
  97.  
  98. (set tool-name
  99.     (tackon @default-dest "ColourCycle")
  100. )
  101.  
  102. (if (exists exists-name (noreq))
  103.     (foreach exists-name "#?"
  104.         (
  105.             (set icon-name
  106.                 (tackon exists-name @each-name)
  107.             )
  108.             (tooltype
  109.                 (dest icon-name)
  110.                 (setdefaulttool tool-name)
  111.             )
  112.         )
  113.     )
  114. )
  115.  
  116. (if    (askbool
  117.         (prompt "Install the default icon in the ENVARC: drawer?")
  118.         (default 0)
  119.         (help copy-icon-help)
  120.     )
  121.     (
  122.         (makedir "ENVARC:ColourCycle")
  123.         (makedir "ENV:ColourCycle")
  124.         (copyfiles
  125.             (source "def_ColourCycleFile.info")
  126.             (dest "ENVARC:ColourCycle")
  127.         )
  128.         (copyfiles
  129.             (source "def_ColourCycleFile.info")
  130.             (dest "ENV:ColourCycle")
  131. ;            (noguage)
  132.         )
  133.         (tooltype
  134.             (dest "ENV:ColourCycle/def_ColourCycleFile")
  135.             (setdefaulttool tool-name)
  136.             (noposition)
  137.         )
  138.         (tooltype
  139.             (dest "ENVARC:ColourCycle/def_ColourCycleFile")
  140.             (setdefaulttool tool-name)
  141.             (noposition)
  142.         )
  143.     )
  144. )
  145.  
  146. (exit (quiet))
  147.